﻿Imports System.Data
Imports System.Data.SqlClient
Public Class UsrCtrlMonHoc
    Public Sub LoadDaTa()
        Dim MonHoc_BUS As MonHocBUS = New MonHocBUS
        Dim sql As String = "select * from MONHOC"
        MonHoc_BUS.LoadDGV(dgvMonHoc, sql)
    End Sub
    Private Sub btnSearchMonHoc_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSearchMonHoc.Click
        Dim MonHoc_BUS As MonHocBUS = New MonHocBUS
        Dim sql As String = "select * from MONHOC where MaMonHoc like '%" & txtSearchMonHoc.Text & "%' or TenMonHoc Like '%" & txtSearchMonHoc.Text & "%'"
        MonHoc_BUS.LoadDGV(dgvMonHoc, sql)
    End Sub

    Private Sub btnThemMonhoc_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnThemMonhoc.Click
        Dim MonHoc_BUS As MonHocBUS = New MonHocBUS
        Dim mh As MonHocDTO = New MonHocDTO
        mh.MaMonHoc = txtMaMonHoc.Text
        mh.TenMonHoc = txtTenMonHoc.Text
        If (MonHoc_BUS.ThemMonHoc(mh)) Then
            MessageBox.Show("Thêm môn học thành công", "^^", MessageBoxButtons.OK)
            LoadDaTa()
        Else
            MessageBox.Show("Thêm thất bại, kiểm tra lại dữ liệu hoặc kết nối", "Opps!", MessageBoxButtons.OK)
        End If
    End Sub

    Private Sub btnXoaMonHoc_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnXoaMonHoc.Click
        Dim MonHoc_BUS As MonHocBUS = New MonHocBUS
        Dim index As DataGridViewSelectedRowCollection = dgvMonHoc.SelectedRows
        For Each A As DataGridViewRow In index
            Dim MaMonHoc As String = A.Cells(0).Value
            Dim sql As String = "select * from BaoCao where MaMonHoc ='" & MaMonHoc & "'"
            Dim GetSL As DataProvider = New DataProvider
            Dim reader As SqlDataReader = GetSL.SQL_ExcuteQueryReader(sql)
            Dim result As MsgBoxResult
            If (reader.HasRows) Then
                result = MessageBox.Show("Bạn có chắc muốn xóa luôn tất cả báo cáo của môn học này!", "???", MessageBoxButtons.OKCancel)
                If (result = MsgBoxResult.Cancel) Then  'ok chưa?
                    Return
                ElseIf (result = MsgBoxResult.Ok) Then
                    sql = "select * from KETQUA where MaMonHoc ='" & MaMonHoc & "'"
                    reader = GetSL.SQL_ExcuteQueryReader(sql)
                    If (reader.HasRows) Then
                        result = MessageBox.Show("Bạn có chắc muốn xóa luôn tất cả kết quả của môn học này!", "???", MessageBoxButtons.OKCancel)
                        If (result = MsgBoxResult.Cancel) Then  'ok lun chưa? rùi nhấn ctrl + f5 dùm em đi
                            Return
                        ElseIf (result = MsgBoxResult.Ok) Then
                            If (MonHoc_BUS.XoaMonHoc(MaMonHoc) = False) Then
                                MessageBox.Show("Xoá không thành công vui lòng kiểm tra lại kết nối mạng !!!", "Opps!", MessageBoxButtons.OK)
                                Return
                            End If
                            'MessageBox.Show(MaHocKy)
                        End If
                    Else
                        If (MonHoc_BUS.XoaMonHoc(MaMonHoc) = False) Then
                            MessageBox.Show("Xoá không thành công vui lòng kiểm tra lại kết nối mạng !!!", "Opps!", MessageBoxButtons.OK)
                            Return
                        End If
                    End If
                End If
            Else
                If (MonHoc_BUS.XoaMonHoc(MaMonHoc) = False) Then
                    MessageBox.Show("Xoá không thành công vui lòng kiểm tra lại kết nối mạng !!!", "Opps!", MessageBoxButtons.OK)
                    Return
                End If
            End If
        Next
        MessageBox.Show("Xóa thành công !!!", "^^", MessageBoxButtons.OK)
        LoadDaTa()
    End Sub


    Private Sub btnSuaMonHoc_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSuaMonHoc.Click
        Dim MonHoc_BUS As MonHocBUS = New MonHocBUS
        Dim mh As MonHocDTO = New MonHocDTO
        mh.MaMonHoc = txtMaMonHoc.Text
        mh.TenMonHoc = txtTenMonHoc.Text
        If (MonHoc_BUS.SuaMonHoc(mh)) Then
            MessageBox.Show("Cập nhật môn học thành công", "^^", MessageBoxButtons.OK)
            LoadDaTa()
        Else
            MessageBox.Show("Cập nhật thất bại, kiểm tra lại dữ liệu hoặc kết nối", "Opps!", MessageBoxButtons.OK)
        End If
    End Sub

    Private Sub dgvMonHoc_SelectionChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles dgvMonHoc.SelectionChanged
        txtMaMonHoc.Text = dgvMonHoc.CurrentRow.Cells(0).Value
        txtTenMonHoc.Text = dgvMonHoc.CurrentRow.Cells(1).Value
    End Sub
End Class
